perm filename LOSS.LAP[MAC,LSP]2 blob sn#566676 filedate 1981-02-19 generic text, type T, neo UTF8
'(THIS IS THE LAP FOR ((DSK (MAC LSP)) LOSS /1)) 
'(COMPILED BY LISP COMPILER /924 COMAUX /20 PHAS1 /67 MAKLAP /68 INITIA /102) 

;COMPILED ON FEBRUARY 19, 1981, AT 1:10 PM

(LAP TEST SUBR) 
(ARGS TEST (()  . 1)) 
(PUSH P 1) 
(CAIE 1 'WHICH-OPERATIONS) 
(JRST 0 G0002) 
(CALL 0 'BAZOLA1) 
(JRST 0 G0001) 
G0002 
(CAIE 1 'TYI) 
(JRST 0 G0004) 
(CALL 0 'BAZOLA2) 
(JRST 0 G0001) 
G0004 
(CAIE 1 'ZTESCH) 
(JRST 0 G0006) 
(CALL 0 'BAZOLA3) 
(JRST 0 G0001) 
G0006 
(MOVEI 1 '() ) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
()  


(COMMENT ****  (BAZOLA3 BAZOLA2 BAZOLA1) 
		have been used but remain undefined in this file)